Vì sao chương trình sau dịch thành công nhưng khi chạy lại bị lỗi:
var i,tong byte;
begin
while i<25 do
begin
tong=tong+i
end.
Những câu hỏi liên quan
sau khi thực hiện đoạn chương trình :
Pascal ?
Tong=0
For i =1 to 5 do ,tong =tong+i ;
writeln(' gia tri tong la tong= ,tong);
Sau khi thực hiện đoạn chương trình trên kết quả là( trình bày các bước làm)
giúp tớ với
tong=15
các bước làm:
lần lặp thứ 1: tong = 0 + 1 = 1
lần lặp thứ 2 : tong = 1 + 2 = 3
lần lặp thứ 3 : tong = 3 + 3 = 6
lần lặp thứ 4 : tong = 6 + 4 = 10
lần lặp thứ 5 : tong = 10 + 5 = 15
Đúng 1
Bình luận (0)
Trường Nhật Tân đang tổ chức một ngày hội thể thao chạy đua 2019-2020. Có 6 thành viên đang tranh nhau huy chương vàng, bạc, đồng. Đó là thành viên Đào, Trâm, Linh, Hoa, Hương, Thị. Đào chạy nhanh với vận tốc 39km/giờ, nhanh hơn bạn Hương. Linh chạy nhanh trong 1 giờ 48 phút, sau bạn Thị một tí. Hoa chạy nhanh với thời gian 7 phút 5 giây, trước bạn Linh nhưng sau bạn Thị. Trâm chạy nhanh với vận tốc 27km/giờ. Hỏi bạn nào nhận huy chương vàng, bạn nào nhận huy chương bạc, bạn nào nhận huy chương...
Đọc tiếp
Trường Nhật Tân đang tổ chức một ngày hội thể thao chạy đua 2019-2020. Có 6 thành viên đang tranh nhau huy chương vàng, bạc, đồng. Đó là thành viên Đào, Trâm, Linh, Hoa, Hương, Thị. Đào chạy nhanh với vận tốc 39km/giờ, nhanh hơn bạn Hương. Linh chạy nhanh trong 1 giờ 48 phút, sau bạn Thị một tí. Hoa chạy nhanh với thời gian 7 phút 5 giây, trước bạn Linh nhưng sau bạn Thị. Trâm chạy nhanh với vận tốc 27km/giờ. Hỏi bạn nào nhận huy chương vàng, bạn nào nhận huy chương bạc, bạn nào nhận huy chương đồng và bạn nào còn lại bị loại? Vì sao?
thi huy truong vang la thi
huy truong bac la hoa
huy truong dong la dao ; tram ;.
vay linh bi loai
anh đi anh nhớ quê nha
nhớ canh rau muống nhớ cà dầm tương
nhớ thằng đẩy bố xuống mương
bố mà bắt được bố tương vỡ mồm
Bạn ơi, trả lời câu hỏi này đi!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Xem thêm câu trả lời
Bài 1: Cho chương trình sau: Hãy nêu ý nghĩa từng câu lệnh trong chương trình và cho biết kết quả sau khi chạy chương trình này là gì? Hãy đặt đề bài cho bài toán này.Program ga_cho;Uses crt;Var g,c: byte;Begin Clrscr; For g:1 to 36 do For c: 1 to 36-g do If (g+c 36 ) and (2*g+4*c100) then writeln( ‘ so ga la: ‘, g,’ so cho la’,c);Readln;End.Bài 2: Hãy viết chương trình tính tổng các số nguyên tố trong khoảng từ 1 đến 50a, Xác định bài toánb, Mô tả thuật toánc, Viết chương trìnhGiúp mik v...
Đọc tiếp
Bài 1: Cho chương trình sau: Hãy nêu ý nghĩa từng câu lệnh trong chương trình và cho biết kết quả sau khi chạy chương trình này là gì? Hãy đặt đề bài cho bài toán này.
Program ga_cho;
Uses crt;
Var g,c: byte;
Begin
Clrscr;
For g:=1 to 36 do
For c:= 1 to 36-g do
If (g+c= 36 ) and (2*g+4*c=100) then writeln( ‘ so ga la: ‘, g,’ so cho la’,c);
Readln;
End.
Bài 2: Hãy viết chương trình tính tổng các số nguyên tố trong khoảng từ 1 đến 50
a, Xác định bài toán
b, Mô tả thuật toán
c, Viết chương trình
Giúp mik vs mik cần bài gấp trc tối nay
Bài 2:
a: Input: 50 số từ 1 đến 50
Output: Tổng các số nguyên tố
c: Viết chương trình:
uses crt;
var i,j,t,kt:integer;
begin
clrscr;
t:=0;
for i:=2 to 50 do
begin
kt:=0;
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then kt:=1;
if kt=0 then t:=t+i;
end;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
Hãy sắp xếp các lệnh sau để thành một chương trình hoàn chỉnh End. End; Readln; Begin Readln(f,i); Close(f); Var f:text; i: byte; writeln(i); Assign(f,'D:/so.txt'); Reset(f); While not(eof(f)) Do Begin
Xem chi tiết
Thứ tự sắp xếp
12. End.
8. End;
11. Readln;
2. Begin
7. Readln(f,i);
9. Close(f);
1. Var f:text; i: byte;
10. writeln(i);
3. Assign(f,'D:/so.txt');
4. Reset(f);
5. While not(eof(f)) Do
6. Begin
Đúng 1
Bình luận (0)
Chương trình dịch Pascal sẽ cấp phát bao nhiêu byte bộ nhớ cho các biến trong khai báo sau:
Var M, N, I: INTEGER;
P, A, B: REAL;
X: EXTENDED;
K: WORD;
A. 44;
B. 36;
C. 38;
D. 42.
Chương trình dịch Pascal sẽ cấp phát bao nhiêu byte bộ nhớ cho các biến trong khai báo sau:
Var M, N, I, J: INTEGER;
P, A, B: REAL;
X: EXTENDED;
K:WORD;
A. 44
B. 36
C. 38
D. 42
Chương trình dịch Pascal sẽ cấp phát bao nhiêu byte bộ nhớ cho các biến trong khai báo sau:
Var M, N, I: INTEGER;
P, A, B, C: REAL;
X: EXTENDED;
K:WORD;
A. 44;
B. 36;
C. 38;
D. 42.
Chương trình dịch Pascal sẽ cấp phát bao nhiêu byte bộ nhớ cho các biến trong khai báo sau:
Var M, N, I, J: INTEGER;
P, A, B, C: REAL;
X: EXTENDED;
K: WORD;
A. 44
B. 36
C. 38
D. 42
Cho đoạn chương trình sau:
i:=1; tong:=0;
While i <= 5 do
Begin
tong:= tong + i;
i:= i + 1;
End;
Sau đoạn chương trình trên em hãy cho biết biến “tong” có giá trị bằng bao nhiêu?
A.1
B.5
C.10
D.15